Top 10k strings from Stars Spectrum - Utilidades - Issue 03 (1984)(Stars)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
13 ;" INICIACION AL BASIC 12 hhhhhhhhhhhhhhhhhhh 12 ;" --Pulsa ENTER para continuar-- ": 6 CCCCCCCCCCC 5 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 4 ;"*** STARS ** STARS ***"; 3 ;"PARA EL CASSETTE" 3 ;"DESEAS VER LAS INSTRUCCIONES DE NUEVO ?": 3 ;"********** SKROLL **********" 3 00000000000000000000000000000000 3 ................... 3 .......... 3 "(S/N)";A$: 2 PULSA UNA TECLA PARA CONTINUAR 2 CCCCCCCCCC 2 BASIC 2 ;"PON EN MARCHA EL CASSETTE" 2 ;"******** COLORES ********" 2 ;"******** MORSE *********" 2 ;" PULSA UNA TECLA PARA CONTINUAR ": 2 ''" EN LA LINEA 2 "TINTA ? ";INK: 2 "PAPEL ? ";PAPER: 1 show line l$ 1 p$="1702332": 1 morse V 1 l$=" PULSA S PARA DEMOSTRACION " 1 k$="1234567": 1 i$="6260066": 1 hhhhhhhhhhhhhhhhh 1 basic @ 1 X,Y,Z 10 1 STARS UTILIDADES N. 3 1 STARS 1 SKROLL 7 1 SKROLL 1 MORSE m 1 M$(Z,M)="." 1 M$(Z,M)="-" 1 FILA ? ";FI: 1 ENUNCIADO : 1 COLUMNA ? ";C: 1 COLORES ( 1 COLORES 1 B-32688-85 1 A 30 PRINT A 1 A 10 1 >B><>B<><B 1 >B><><<><B 1 ;"STARS STARS STARS STARS STARS "; 1 ;"PULSA UNA TECLA CUANDO QUIERAS CORREGIR EL EJERCICIO " 1 ;"PULSA TECLA PARA VOLVER AL MENU " 1 ;"PULSA TECLA PARA VOLVER AL MENU ": 1 ;"PULSA TECLA PARA PARAR Y CORRIGE"'"TU LECTURA.......PALABRA No ";Y 1 ;"PULSA Ss+9 PARA VOLVER AL MENU" 1 ;"PULSA EL CARACTER APROPIADO"; 1 ;"PULSA 'ZZZZ' PARA VOLVER AL MENU" 1 ;"PUEDES ESCOGER CARACTERES ALFA "'"O BIEN"'"ALFANUMERICOS"'''"ALFA.............26"''"ALFANUMERICOS.......36": 1 ;"PON LETRAS, PALABRAS O FRASES" 1 ;"PARA UNA VISUALIZACION SIMULTA- NEA PULSA '7'. PARA EJERCICIOS Y UNA POSTERIOR CORRECCION PULSA '0'." 1 ;"OK. ";C$: 1 ;"FALLASTE, ERA ";C$: 1 ;"Entre frases pulsa tres espacios"'"en vez de un punto.": 1 ;"ESCOGE VELOCIDAD ENTRE "'"12 (RAPIDO) Y 99 (MUY LENTO) " 1 ;"DESEAS UN REPASO (S/N) ?" 1 ;"CODIGO MORSE"; 1 ;"1 ESCUCHA Y LEE"'" GRUPOS DE CIFRAS"'" EN MORSE"''"2 ESCUCHA CIFRAS EN MORSE"'" Y PULSA SU CARACTER"'" EQUIVALENTE"''"3 PON UNA LETRA, PALABRA O"'" FRASE Y ATIENDE A SU"'" TRADUCCION"''"4 DESTELLOS DE LUZ EN MORSE" 1 ;" ESTA UTILIDAD NOS VA A PERMI-TIR UN DESPLAZAMIENTO CONTINUO DE LA PANTALLA EN EL USO DEL CO-MANDO 'LIST' SIN LA NECESIDAD DE PULSAR 'ENTER' CADA VEZ." 1 ;" UN MOMENTO POR FAVOR ": 1 ;" ": 1 20;SUB:LET L=L+2:NEXT N " 1 20;""SUBTOTAL"" " 1 12;""GASTOS""; 1 100,125,300 15 PRINT X: PRINT Y: PRINT Z 20 PRINT X+Y+Z 1 100 15 PRINT A 20 1 0,0;""NOMBRE"",""TELEFONO"" 15 FOR N=1 TO Z: INPUT ""NOMBRE "";A$: INPUT ""TELEFONO "";B:PRINT 'A$,B: NEXT N " 1 0,0;""DIA""; 1 . SU FORMATO ES LA PRO-PIA INSTRUCCION (QUE SIGNIFICA LECTURA), SEGUIDA DE LOS NOMBRESDE VARIABLES QUE VAYAMOS A UTI- LIZAR SEPARADAS POR COMAS. PU- DIENDO SER ESTAS NUMERICAS O AL-FANUMERICAS." 1 , Y VEREIS COMO SE PRODUCE UN ERROR." 1 , UTILIZAMOS UNBUCLE EN EL QUE CADA VEZ QUE SE EJECUTE INTRODUCIREMOS UN DATO CORRESPONDIENTE AL NOMBRE DE TU AMIGO Y OTRO AL DE SU NUMERO DE TELEFONO." 1 , LUEGO PODEMOS UBICARLA CON EL NUMERO DE LINEA QUE MAS NOS CONVENGA." 1 , LE SEGUIRA UNA LISTA DE DATOS TAM- BIEN SEPARADOS POR COMAS. LOS DATOS ALFANUMERICOS IRAN ADEMAS ENTRE COMILLAS." 1 , CREAMOS UN BUCLE QUE SE REPETIRA SIETE VECES, UNAPARA CADA DIA DE LA SEMANA." 1 , CON LO QUE LA PROXIMA IM-PRESION SE REALIZARA DOS LINEAS MAS ABAJO." 1 ''''''" LA RUTINA ESTA GRABADA INME- DIATAMENTE DESPUES DE ESTAS INSTRUCCIONES, PARA CARGARLA Y EMPEZAR A ADECUARLA A VUESTROS PROGRAMAS, SOLO TENEIS QUE SE- GUIR LOS PASOS ANTES EXPLICADOS." 1 ''''''" ESTA UTILIDAD TE VA A PERMI- TIR APRENDER EL CODIGO MORSE DE UNA MANERA FACIL Y AGRADABLE. INCLUYE EL APRENDIZAJE DEL MORSE CONOCIDO Y DEL VISUAL POR DESTELLOS DE LUZ, ASI COMO EJER-CICIOS PARA AMBOS CASOS." 1 ''''''" ESTA UTILIDAD NOS PERMITE VEROTRA FACETA EN LA UTILIZACION DELOS COLORES DEL SPECTRUM." 1 '''''" RESERVAR UNA ZONA DE MEMORIA CON 'CLEAR 32338' Y HACER LOAD''CODE 32339,146." 1 ''''" VOLVEMOS A ESTAR OTRA VEZ CONVOSOTROS EN ESTE NUEVO NUMERO DESTARS, EN EL QUE COMO SIEMPRE VAMOS A EMPEZAR DANDO UNA POSI- BLE SOLUCION A LOS DOS PROBLEMASQUE EL MES PASADO EXPUSIMOS." 1 ''''" ACONSEJAMOS QUE ANTES DE SE- GUIR ADELANTE Y SI YA HABEIS TO-MADO NOTA DE LO QUE HASTA AHORA SE HA EXPLICADO, PAREIS EL ORDE-NADOR, TECLEEIS LAS SOLUCIONES Y VEAIS COMO FUNCIONAN." 1 ''''" A ESTA INSTRUCCION 1 '''" PARA QUE SE EJECUTE LA RUTINAHACER 'RANDOMIZE USR 32339, PARAPROVOCAR UNA INTERRUPCION, PUL- SAR 'Ss+SPACE' Y PARA DETENER SUEJECUCION, RANDOMIZE USR 32397." 1 '''" ESTUDIAREMOS DESPUES LAS INS-TRUCCIONES 1 '''" EN LA LINEA 1 '''" EN CUALQUIER MOMENTO DE SU EJECUCION PUEDES PARAR EL PRO- GRAMA PARA VER COMO LO HEMOS HE-CHO." 1 ''" VEAMOS ALGUN EJEMPLO:" 1 ''" VEAMOS AHORA LA IMPRESION EN PANTALLA DE LOS GASTOS DE LA SE-MANA." 1 ''" SI HUBIESE MAS DE DOS CADENASTAMBIEN SEPARADAS POR COMAS, ES-TAS IRIAN APARECIENDO EN PANTA- LLA DE FORMA ALTERNATIVA UNA DE-BAJO DE OTRA FORMANDO DOS COLUM-NAS." 1 ''" OTRA MANERA DE PROCESAR DATOSLA OBTENDREMOS CON LA INSTRUC- CION 1 ''" LA IMPRESION DEL CONTENIDO DELAS VARIABLES SE REALIZARA DE LAMISMA FORMA QUE EN LA LINEA 1 ''" LA COMA QUE SEPARA LAS DOS CADENAS DE CARACTERES A IMPRIMIRDE LA LINEA 1 ''" ESTA, NO AFECTA PARA NADA LA EJECUCION DEL RESTO DEL PROGRAMAHASTA QUE ESTE SE ENCUENTRE CON UN 1 ''" EN CUQLQUIER CASO, ESTA SE UTILIZA DE LA SIGUIENTE MANERA:" 1 ''" EL PROGRAMA ESTA HECHO DE MA-NERA QUE PUEDAS HACER PRUEBAS DECOLORES ASI COMO GRABACIONES DE TITULOS Y PANTALLAS." 1 ''" DESPUES SUMARA 1 ''" CAMBIAR LAS INSTRUCCIONES 1 ''" CODIGO MORSE: A.- B-... C-.-. D-.. E. F..-. G--. H.... I.. J.--- K-.- L.-.. M-- N-. O--- P.--. Q--.- R.-. S... T- U..- V...- W.-- X-..- Y-.-- Z--.. 0----- 1.---- 2..--- 3...-- 4....- 5..... 6-.... 7--... 8---.. 9----." 1 '" Y EN LA LINEA 1 '" VEMOS QUE EL DESARROLLO DEL PROGRAMA CON VARIABLES NUMERICASES EL MISMO QUE CON LAS ALFANU- MERICAS. VEMOS TAMBIEN QUE PODE-MOS OPERAR CON ELLAS EN LA MANE-RA USUAL." 1 '" VAMOS A EMPEZAR CON LA PRIME-RA PARTE DEL ENUNCIADO EN LA QUESE PEDIA UNA MINI-AGENDA." 1 '" SI TUVIESEMOS LA NECESIDAD DEVOLVER A LEER LOS DATOS DENTRO DEL MISMO PROGRAMA, TENDRIAMOS QUE UTILIZAR LA INSTRUCCION DE INICIALIZACION DE 1 '" LOS DATOS QUE VAYAMOS ALMACE-NANDO EN DICHAS VARIABLES, NO LOS INTRODUCIREMOS POR EL TECLA-DO COMO HASTA AHORA HEMOS ESTADOHACIENDO, SINO QUE LOS IRA A BUSCAR ALLA DONDE ENCUENTRE LA INSTRUCCION 1 '" FIJAOS QUE HEMOS PUESTO UNA CADENA DE CARACTERES ENTRE LA INSTRUCCION 1 '" EN LA PRIMERA LINEA DE PRO- GRAMA INICIALIZAMOS UNA VARIABLENUMERICA CON EL VALOR NUEVE, DI-CHA CANTIDAD ES EL NUMERO DE IM-PRESIONES QUE SE VAN A REALIZAR,Y PODEIS CAMBIARLO COMO MEJOR OSVAYA." 1 '" EN LA LINEA 1 '" EN LA 1 '" EN CADA EJECUCION NOS PEDIRA EL DIA DE LA SEMANA Y SUS GASTOSE IMPRIMIRA DICHOS DATOS Y UN SUBTOTAL, RESULTADO DE SUMAR A LA VARIABLE 1 '" EL NOMBRE SE GUARDARA EN LA VARIABLE ALFANUMERICA 1 "tinta ";ink: 1 "papel ";paper 1 "VELOCIDAD ";S$: 1 "TITULO O PANTALLA (T/P) ?";Y$: 1 "TITULO :";L$: 1 "PULSA '0' O '7' ";I$: 1 "NOMBRE ? ";N$: 1 "ESCOGE OPCION";A$: 1 "ESCOGE LA CIFRA APROPIADA";G$: 1 "DESEAS SALVAR 1 "COLORES CORRECTOS? (S/N)";Y$: 1 "A.-","B-...","C-.-.","D-..","E.","F..-.","G--.","H....","I..","J.---","K-.-","L.-..","M--","N-.","O---","P.--.","Q--.-","R.-.","S...","T-","U..-","V...-","W.--","X-..-","Y-.--","Z--..","0-----","1.----","2..---","3...--","4....-","5.....","6-....","7--...","8---..","9----." 1 ";" ink ";ink;" paper ";paper 1 " LETRA ";H$: 1 Y SU VARIABLE CORRESPONDIENTE. DIHA CADENA SE IMPRIMIRA PARA INDICARNOS EL TI-PO DE DATO A INTRODUCIR." 1 Y QUE SE ALMACENARANRESPECTIVAMENTE EN LAS VARIABLES 1 Y EL TELEFONO EN LA NUMERICA 1 PARA VOLVERA LEER LOS DATOS. AL TECLEAR EL PROGRAMA, SUPRIMID LA LINEA 1 ORDENAMOS LA LECTURA DE LOS DATOS QUE HAY EN LA LINEA 1 LOS GASTOS DEL DIA O DICHO DE OTRA MANERA, LA VARIABLE 1 INICIALIZAMOS LA VARIABLE 1 HEMOS INCLUIDOLA SENTENCIA 1 HACEMOS IM- PRIMIR EL CONTENIDO DE DICHAS VARIABLES." 1 EN LA PRI-MERA PARTE DEL ENUNCIADO DEL MESPASADO." 1 A LA VARIA- BLE 1 20 FOR N=1 TO 7:INPUT ""DIA"";B$:INPUT ""GASTOS"";C:LET SUB=SUB+C:PRINT 1 10 LET SUB=0: LET L=3:PRINT 1 (NOMBRE Y TELEFO-NO), ORDENA LA IMPRESION DE ES- TAS DE MANERA QUE LA PRIMERA SE REALICE AL PRINCIPIO DE LA LI- NEA, Y LA SEGUNDA JUSTO EN SU MITAD." 1 (DE SUBTOTALES) Y LA VARIABLE 1 (DE LINEA DE IM-PRESION). ASI COMO IMPRIMIMOS UNA CABECERA PARA LA PANTALLA." 1 5 READ A$,B$,C$ 10 PRINT A$;B$;C$ 15 DATA ""CURSILLO "",""INICIACION AL "",""BASIC"" " 1 5 LET Z=9 10 PRINT 1 25 1 y